This forum is closed to new posts and
responses. Individual names altered for privacy purposes. The information contained in this website is provided for informational purposes only and should not be construed as a forum for customer support requests. Any customer support requests should be directed to the official HCL customer support channels below:
Sure... ~Umberto Nongeroson 20.Jan.04 08:14 PM a Web browser Applications Development 6.0.3Windows 2000
Sub Click(Source As Button)
'-- Get Front and Backend Document
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.currentdocument
'-- Document can not be in edit mode
uidoc.EditMode = False
Dim doc As NotesDocument
Set doc = UIDoc.document
'-- Create Session object to access Notes.ini "Directory" value
Dim Session As New NotesSession
Dim dirpath As String, fileName As String
dirpath = session.GetEnvironmentString( "Directory", True ) + "\Quality\*.*"
'-- Loop through all filenames in QUALITY subdir of NDD
fileName = Dir$(dirpath, 0)
Dim rtitem As NotesRichTextItem, object As NotesEmbeddedObject
Set rtitem = doc.GetFirstItem( "Body" )
Do While fileName <> ""
Set object = rtitem.EmbedObject(EMBED_ATTACHMENT, "", fileName)
fileName = Dir$()
Loop
Call doc.Save(True, True)
Call uidoc.Close
End Sub
Return to top
. . Sure... (~Dan Elhipister... 20.Jan.04)
Print this page
